 <html>
 <head>
 <title>a_def_frame_patch_chart.f90</title>                                     
                                                                                
                                           
 </head>
 <body>
 <a name="AFFINE_FRAME"></a>
<font color="#FF00FF">TYPE AFFINE_FRAME </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;   REAL(DP), POINTER,DIMENSION(:)  ::   ANGLE(:)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;   REAL(DP), POINTER,DIMENSION(:)  ::   D(:)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;   REAL(DP), POINTER,DIMENSION(:)  ::   A</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;   REAL(DP), POINTER,DIMENSION(:,:)::   ENT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;   REAL(DP), POINTER,DIMENSION(:)  ::   B</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;   REAL(DP), POINTER,DIMENSION(:,:)::   EXI</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font color="#FF00FF">END TYPE AFFINE_FRAME </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="MAGNET_FRAME"></a>
<font color="#FF00FF">TYPE MAGNET_FRAME </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;   REAL(DP), POINTER,DIMENSION(:)  ::   A</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;   REAL(DP), POINTER,DIMENSION(:,:)::   ENT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;   REAL(DP), POINTER,DIMENSION(:)  ::   O</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;   REAL(DP), POINTER,DIMENSION(:,:)::   MID</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;   REAL(DP), POINTER,DIMENSION(:)  ::   B</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;   REAL(DP), POINTER,DIMENSION(:,:)::   EXI</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font color="#FF00FF">END TYPE MAGNET_FRAME </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="PATCH"></a>
<font color="#FF00FF">TYPE PATCH </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;   INTEGER(2), POINTER:: PATCH</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;   INTEGER, POINTER :: A_X1,A_X2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;   INTEGER, POINTER :: B_X1,B_X2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;   REAL(DP),DIMENSION(:), POINTER:: A_D,B_D</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;   REAL(DP),DIMENSION(:), POINTER:: A_ANG,B_ANG</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;   INTEGER(2), POINTER:: ENERGY</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;   INTEGER(2), POINTER:: TIME</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;   REAL(DP), POINTER:: A_T,B_T</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font color="#FF00FF">END TYPE PATCH </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CHART"></a>
<font color="#FF00FF">TYPE CHART </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;   TYPE(MAGNET_FRAME), POINTER :: F</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;   REAL(DP),DIMENSION(:),  POINTER::   D_IN,ANG_IN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;   REAL(DP),DIMENSION(:),  POINTER::   D_OUT,ANG_OUT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                       
<font color="#FF00FF">END TYPE CHART </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                   
 </body>
 </html>
